CU Amiga Super CD-ROM 22/CU Amiga Magazine's Super CD-ROM 22 (1998)(EMAP Images)(GB)[!][issue 1998-05].iso/PowerPC/Programming/PPCSmallEiffel/bin_c/compile_to_jvm46.c

C/C++ Source or Header | 1998-01-16 | 11.6 KB | 647 lines

/*
-- ANSI C code generated by :
-- SmallEiffel The GNU Eiffel Compiler -- Release (- 0.82)      --
-- Copyright (C), 1994-98 - LORIA - UHP - CRIN - INRIA - FRANCE --
-- Dominique COLNET and Suzanne COLLIN -    [e-mail]     --
--                 http://www.loria.fr/SmallEiffel              --
*/
#include "compile_to_jvm.h"
void se_msi38(void){
ms134_473=se_ms(10,"to_integer");
ms135_473=se_ms(10,"to_pointer");
ms136_473=se_ms(7,"to_real");
ms137_473=se_ms(12,"trace_switch");
ms138_473=se_ms(20,"truncated_to_integer");
ms139_473=se_ms(4,"twin");
ms140_473=se_ms(5,"upper");
ms141_473=se_ms(13,"with_capacity");
ms142_473=se_ms(10,"write_byte");
ms143_473=se_ms(7,"Current");
ms144_473=se_ms(23,"NATIVE_ARRAY[CHARACTER]");
ms145_473=se_ms(12,"like Current");
ms146_473=se_ms(6,"Result");
ms147_473=se_ms(4,"Void");
ms1_473=se_ms(3,"ANY");
ms10_393=se_ms(27,"Bad comment to end a class.");
ms3_291=se_ms(27,"Cannot find Base Class for ");
ms67_470=se_ms(1,".");
ms1_683=se_ms(5,"Type ");
ms19_605=se_ms(27,"Cyclic inheritance graph : ");
}
void se_msi39(void){
ms20_605=se_ms(2,", ");
ms21_605=se_ms(5,", ...");
ms66_470=se_ms(16,"Class not found.");
ms6_605=se_ms(56,"Deferred class should not have creation clause (VGCP.1).");
ms2_683=se_ms(7,"Warning");
ms10_604=se_ms(35,"Bad \"rename.se\" file.\nCannot open \"");
ms137_470=se_ms(2,"\".");
ms13_604=se_ms(9,"rename.se");
ms14_604=se_ms(20,"Multiple entry for \"");
ms15_604=se_ms(36,"\" in \"rename.se\" files.\nClash for \n\"");
ms16_604=se_ms(8,"\" and \n\"");
ms17_604=se_ms(2,".\n");
ms25_364=se_ms(2,".e");
ms11_604=se_ms(31,"Unable to find file for class \"");
ms12_604=se_ms(3,"\". ");
ms62_604=se_ms(19,"\nLoading path is :\n");
ms2_604=se_ms(11,"loadpath.se");
ms3_604=se_ms(9,"loadpath.");
ms4_604=se_ms(23,"No default path (file \"");
}
void se_msi40(void){
ms5_604=se_ms(14,"\" not found).\n");
ms63_604=se_ms(22,"Environment Variable \"");
ms64_604=se_ms(5,"\" is\n");
ms66_604=se_ms(8,"set to \"");
ms67_604=se_ms(3,"\". ");
ms65_604=se_ms(9,"not set. ");
ms7_604=se_ms(21,"Unable to load class.");
ms6_604=se_ms(34,"Internal Error #1 in SMALL_EIFFEL.");
ms9_627=se_ms(37,"SmallEiffel cannot load base class : ");
ms10_627=se_ms(1,"\n");
ms8_627=se_ms(2,"^\n");
ms7_683=se_ms(7,"------\n");
ms3_473=se_ms(3,"BIT");
ms171_470=se_ms(3,"out");
ms157_470=se_ms(19,"java/io/PrintStream");
ms174_470=se_ms(5,"close");
ms161_470=se_ms(3,"()V");
ms168_470=se_ms(16,"java/lang/System");
ms175_470=se_ms(3,"err");
ms172_470=se_ms(21,"Ljava/io/PrintStream;");
}
void se_msi41(void){
ms4_228=se_ms(4,"\312""\376""\272""\276""");
ms5_228=se_ms(2,"\0""-");
ms3_95=se_ms(15,"Constant pool: ");
ms1_543=se_ms(5,"field");
ms1_506=se_ms(6,"method");
ms3_228=se_ms(4,"byte");
ms8_306=se_ms(3,"No ");
ms6_306=se_ms(6,"Total ");
ms7_306=se_ms(2,": ");
ms241_470=se_ms(2,".\n");
ms1_632=se_ms(37,"Bad use of command `compile_to_jvm\'.\n");
ms2_632=se_ms(14,"compile_to_jvm");
ms2_364=se_ms(3,"man");
ms126_470=se_ms(3,"sys");
ms3_306=se_ms(18,"Try to read file \"");
ms4_306=se_ms(3,"\".\n");
ms20_364=se_ms(21,"Unable to find file\n\"");
ms127_470=se_ms(9,"system.se");
}
void se_msi42(void){
ms21_364=se_ms(14,"\" using path \"");
ms121_470=se_ms(11,"SmallEiffel");
ms1_364=se_ms(31,"/usr/local/logiciel/SmallEiffel");
ms24_364=se_ms(11,"System is \"");
ms22_364=se_ms(29,"Unknown system name in file\n\"");
ms23_364=se_ms(36,"\".\nCurrently handled system names :\n");
ms13_364=se_ms(5,"Amiga");
ms14_364=se_ms(3,"DOS");
ms15_364=se_ms(9,"Macintosh");
ms16_364=se_ms(3,"OS2");
ms18_364=se_ms(3,"VMS");
ms19_364=se_ms(7,"Windows");
ms17_364=se_ms(4,"UNIX");
ms39_364=se_ms(4,".txt");
ms3_364=se_ms(26,"Unable to find help file \"");
ms242_470=se_ms(3,"\".\n");
}
T7*se_ms(int c,char*e){
T7*s=malloc(sizeof(T7));
s->_count=c;
s->_capacity=c+1;
s->_storage=malloc(c+1);
memcpy(s->_storage,e,c);
return s;}
T7*e2s(char*e){
return se_ms(strlen(e),e);}
char*s2e(T7*s){
char*e=malloc(1+s->_count);
memcpy(e,s->_storage,s->_count);
e[s->_count]='\0';
return e;}
void*se_ma65(int argc,...){
T65*m;
va_list pa;
T0**s;
m=malloc(sizeof(*m));
*m=M65;
if(argc){
s=malloc(argc*sizeof(*s));
m->_storage=s;
m->_capacity=argc;
m->_lower=1;
m->_upper=argc;
va_start(pa,argc);
while(argc--){
*(s++)=((void*)(va_arg(pa,char*)));
}
va_end(pa);
}
return m;}
void*se_ma901(int argc,...){
T901*m;
va_list pa;
T0**s;
m=malloc(sizeof(*m));
*m=M901;
if(argc){
s=malloc(argc*sizeof(*s));
m->_storage=s;
m->_capacity=argc;
m->_lower=1;
m->_upper=argc;
va_start(pa,argc);
while(argc--){
*(s++)=((void*)(va_arg(pa,char*)));
}
va_end(pa);
}
return m;}
void*se_ma263(int argc,...){
T263*m;
va_list pa;
T0**s;
m=malloc(sizeof(*m));
*m=M263;
if(argc){
s=malloc(argc*sizeof(*s));
m->_storage=s;
m->_capacity=argc;
m->_lower=1;
m->_upper=argc;
va_start(pa,argc);
while(argc--){
*(s++)=((void*)(va_arg(pa,char*)));
}
va_end(pa);
}
return m;}
void*se_ma522(int argc,...){
T522*m;
va_list pa;
T0**s;
m=malloc(sizeof(*m));
*m=M522;
if(argc){
s=malloc(argc*sizeof(*s));
m->_storage=s;
m->_capacity=argc;
m->_lower=1;
m->_upper=argc;
va_start(pa,argc);
while(argc--){
*(s++)=((void*)(va_arg(pa,char*)));
}
va_end(pa);
}
return m;}
void*se_ma587(int argc,...){
T587*m;
va_list pa;
T0**s;
m=malloc(sizeof(*m));
*m=M587;
if(argc){
s=malloc(argc*sizeof(*s));
m->_storage=s;
m->_capacity=argc;
m->_lower=1;
m->_upper=argc;
va_start(pa,argc);
while(argc--){
*(s++)=((void*)(va_arg(pa,char*)));
}
va_end(pa);
}
return m;}
void*se_ma396(int argc,...){
T396*m;
va_list pa;
T0**s;
m=malloc(sizeof(*m));
*m=M396;
if(argc){
s=malloc(argc*sizeof(*s));
m->_storage=s;
m->_capacity=argc;
m->_lower=1;
m->_upper=argc;
va_start(pa,argc);
while(argc--){
*(s++)=((void*)(va_arg(pa,char*)));
}
va_end(pa);
}
return m;}
void*se_ma848(int argc,...){
T848*m;
va_list pa;
T0**s;
m=malloc(sizeof(*m));
*m=M848;
if(argc){
s=malloc(argc*sizeof(*s));
m->_storage=s;
m->_capacity=argc;
m->_lower=1;
m->_upper=argc;
va_start(pa,argc);
while(argc--){
*(s++)=((void*)(va_arg(pa,char*)));
}
va_end(pa);
}
return m;}
void*se_ma147(int argc,...){
T147*m;
va_list pa;
T0**s;
m=malloc(sizeof(*m));
*m=M147;
if(argc){
s=malloc(argc*sizeof(*s));
m->_storage=s;
m->_capacity=argc;
m->_lower=1;
m->_upper=argc;
va_start(pa,argc);
while(argc--){
*(s++)=((void*)(va_arg(pa,char*)));
}
va_end(pa);
}
return m;}
void*se_ma855(int argc,...){
T855*m;
va_list pa;
T0**s;
m=malloc(sizeof(*m));
*m=M855;
if(argc){
s=malloc(argc*sizeof(*s));
m->_storage=s;
m->_capacity=argc;
m->_lower=1;
m->_upper=argc;
va_start(pa,argc);
while(argc--){
*(s++)=((void*)(va_arg(pa,char*)));
}
va_end(pa);
}
return m;}
void*se_ma280(int argc,...){
T280*m;
va_list pa;
T0**s;
m=malloc(sizeof(*m));
*m=M280;
if(argc){
s=malloc(argc*sizeof(*s));
m->_storage=s;
m->_capacity=argc;
m->_lower=1;
m->_upper=argc;
va_start(pa,argc);
while(argc--){
*(s++)=((void*)(va_arg(pa,char*)));
}
va_end(pa);
}
return m;}
void*se_ma26(int argc,...){
T26*m;
va_list pa;
T0**s;
m=malloc(sizeof(*m));
*m=M26;
if(argc){
s=malloc(argc*sizeof(*s));
m->_storage=s;
m->_capacity=argc;
m->_lower=1;
m->_upper=argc;
va_start(pa,argc);
while(argc--){
*(s++)=((void*)(va_arg(pa,char*)));
}
va_end(pa);
}
return m;}
void*se_ma733(int argc,...){
T733*m;
va_list pa;
T0**s;
m=malloc(sizeof(*m));
*m=M733;
if(argc){
s=malloc(argc*sizeof(*s));
m->_storage=s;
m->_capacity=argc;
m->_lower=1;
m->_upper=argc;
va_start(pa,argc);
while(argc--){
*(s++)=((void*)(va_arg(pa,char*)));
}
va_end(pa);
}
return m;}
void*se_ma96(int argc,...){
T96*m;
va_list pa;
T0**s;
m=malloc(sizeof(*m));
*m=M96;
if(argc){
s=malloc(argc*sizeof(*s));
m->_storage=s;
m->_capacity=argc;
m->_lower=1;
m->_upper=argc;
va_start(pa,argc);
while(argc--){
*(s++)=((void*)(va_arg(pa,char*)));
}
va_end(pa);
}
return m;}
void*se_ma608(int argc,...){
T608*m;
va_list pa;
T0**s;
m=malloc(sizeof(*m));
*m=M608;
if(argc){
s=malloc(argc*sizeof(*s));
m->_storage=s;
m->_capacity=argc;
m->_lower=1;
m->_upper=argc;
va_start(pa,argc);
while(argc--){
*(s++)=((void*)(va_arg(pa,char*)));
}
va_end(pa);
}
return m;}
void*se_ma419(int argc,...){
T419*m;
va_list pa;
T0**s;
m=malloc(sizeof(*m));
*m=M419;
if(argc){
s=malloc(argc*sizeof(*s));
m->_storage=s;
m->_capacity=argc;
m->_lower=1;
m->_upper=argc;
va_start(pa,argc);
while(argc--){
*(s++)=((void*)(va_arg(pa,char*)));
}
va_end(pa);
}
return m;}
void*se_ma552(int argc,...){
T552*m;
va_list pa;
T0**s;
m=malloc(sizeof(*m));
*m=M552;
if(argc){
s=malloc(argc*sizeof(*s));
m->_storage=s;
m->_capacity=argc;
m->_lower=1;
m->_upper=argc;
va_start(pa,argc);
while(argc--){
*(s++)=((void*)(va_arg(pa,char*)));
}
va_end(pa);
}
return m;}
void*se_ma681(int argc,...){
T681*m;
va_list pa;
T0**s;
m=malloc(sizeof(*m));
*m=M681;
if(argc){
s=malloc(argc*sizeof(*s));
m->_storage=s;
m->_capacity=argc;
m->_lower=1;
m->_upper=argc;
va_start(pa,argc);
while(argc--){
*(s++)=((void*)(va_arg(pa,char*)));
}
va_end(pa);
}
return m;}
void*se_ma235(int argc,...){
T235*m;
va_list pa;
T0**s;
m=malloc(sizeof(*m));
*m=M235;
if(argc){
s=malloc(argc*sizeof(*s));
m->_storage=s;
m->_capacity=argc;
m->_lower=1;
m->_upper=argc;
va_start(pa,argc);
while(argc--){
*(s++)=((void*)(va_arg(pa,char*)));
}
va_end(pa);
}
return m;}
void*se_ma429(int argc,...){
T429*m;
va_list pa;
T2*s;
m=malloc(sizeof(*m));
*m=M429;
if(argc){
s=malloc(argc*sizeof(*s));
m->_storage=s;
m->_capacity=argc;
m->_lower=1;
m->_upper=argc;
va_start(pa,argc);
while(argc--){
*(s++)=va_arg(pa,int);
}
va_end(pa);
}
return m;}
void*se_ma495(int argc,...){
T495*m;
va_list pa;
T0**s;
m=malloc(sizeof(*m));
*m=M495;
if(argc){
s=malloc(argc*sizeof(*s));
m->_storage=s;
m->_capacity=argc;
m->_lower=1;
m->_upper=argc;
va_start(pa,argc);
while(argc--){
*(s++)=((void*)(va_arg(pa,char*)));
}
va_end(pa);
}
return m;}
void*se_ma948(int argc,...){
T948*m;
va_list pa;
T0**s;
m=malloc(sizeof(*m));
*m=M948;
if(argc){
s=malloc(argc*sizeof(*s));
m->_storage=s;
m->_capacity=argc;
m->_lower=1;
m->_upper=argc;
va_start(pa,argc);
while(argc--){
*(s++)=((void*)(va_arg(pa,char*)));
}
va_end(pa);
}
return m;}
void*se_ma52(int argc,...){
T52*m;
va_list pa;
T0**s;
m=malloc(sizeof(*m));
*m=M52;
if(argc){
s=malloc(argc*sizeof(*s));
m->_storage=s;
m->_capacity=argc;
m->_lower=1;
m->_upper=argc;
va_start(pa,argc);
while(argc--){
*(s++)=((void*)(va_arg(pa,char*)));
}
va_end(pa);
}
return m;}
void*se_ma247(int argc,...){
T247*m;
va_list pa;
T0**s;
m=malloc(sizeof(*m));
*m=M247;
if(argc){
s=malloc(argc*sizeof(*s));
m->_storage=s;
m->_capacity=argc;
m->_lower=1;
m->_upper=argc;
va_start(pa,argc);
while(argc--){
*(s++)=((void*)(va_arg(pa,char*)));
}
va_end(pa);
}
return m;}
void*se_ma764(int argc,...){
T764*m;
va_list pa;
T0**s;
m=malloc(sizeof(*m));
*m=M764;
if(argc){
s=malloc(argc*sizeof(*s));
m->_storage=s;
m->_capacity=argc;
m->_lower=1;
m->_upper=argc;
va_start(pa,argc);
while(argc--){
*(s++)=((void*)(va_arg(pa,char*)));
}
va_end(pa);
}
return m;}
void*se_ma381(int argc,...){
T381*m;
va_list pa;
T0**s;
m=malloc(sizeof(*m));
*m=M381;
if(argc){
s=malloc(argc*sizeof(*s));
m->_storage=s;
m->_capacity=argc;
m->_lower=1;
m->_upper=argc;
va_start(pa,argc);
while(argc--){
*(s++)=((void*)(va_arg(pa,char*)));
}
va_end(pa);
}
return m;}
void*se_ma701(int argc,...){
T701*m;
va_list pa;
T0**s;
m=malloc(sizeof(*m));
*m=M701;
if(argc){
s=malloc(argc*sizeof(*s));
m->_storage=s;
m->_capacity=argc;
m->_lower=1;
m->_upper=argc;
va_start(pa,argc);
while(argc--){
*(s++)=((void*)(va_arg(pa,char*)));
}
va_end(pa);
}
return m;}
void*se_ma382(int argc,...){
T382*m;
va_list pa;
T0**s;
m=malloc(sizeof(*m));
*m=M382;
if(argc){
s=malloc(argc*sizeof(*s));
m->_storage=s;
m->_capacity=argc;
m->_lower=1;
m->_upper=argc;
va_start(pa,argc);
while(argc--){
*(s++)=((void*)(va_arg(pa,char*)));
}
va_end(pa);
}
return m;}
void rsp(void){
printf("Eiffel program crash at run time.\n");
printf("No trace when using option \"-boost\"\n");}
void sigrsp(int sig){
printf("Received signal %d (man signal).\n",sig);
rsp();
exit(1);}